Programma in VB

Het programma globaal:
Ik ga een programma maken voor een bedrijf (Workshops&Co) dat workshops aanbied. Het programma heeft een lijst van 12 workshops, waarvan je er 8 kunt uitkiezen. Nadat je dat gedaan hebt maakt het programma de juiste dagindeling.
********************************************

Private Sub CmdGenereerKnop_Click()
' Voeg de gegevens in de listbox
If CmbSelecteer1 = "" And CmbSelecteer2 = "" And CmbSelecteer3 = "" And CmbSelecteer4 = "" Then
' Als de gebruiker geen enkele workshop heeft gelecteerd dan krijgt hij een foutmelding
Msg = "Er zijn GEEN workshops geselecteerd"
MsgBox Msg, vbCritical, "Onvoldoende gegevens!"
' Plaats cursor
CmbSelecteer1.SetFocus

Else:
If CmbSelecteer1 = "" Then
' Als men bij de eerste workshop niets heeft ingevuld krijgt men een foutmelding
Msg = "U heeft niets ingevuld bij de Eerste Workshop"
MsgBox Msg, vbCritical, "Onvoldoende gegevens!"
'Alle listboxen worden gewist
' Dan word de invoer leeggemaakt en de cursor geplaatst
LstUitvoer1.Clear
LstUitvoer2.Clear
LstUitvoer3.Clear
LstUitvoer4.Clear
' Dan word de invoer leeggemaakt
CmbSelecteer1.Text = ""
'De cursor word terug geplaatst in de combobox van de derde workshop
CmbSelecteer1.SetFocus
Else:
LstUitvoer1.AddItem ("(8.35 / 10.30) " + CmbSelecteer1)

If CmbSelecteer2 = "" Then
' Als men bij de tweede workshop niets heeft ingevuld krijgt men een foutmelding
Msg = "U heeft niets ingevuld bij de Tweede Workshop"
MsgBox Msg, vbCritical, "Onvoldoende gegevens!"
'Alle listboxen worden gewist
' Dan word de invoer leeggemaakt en de cursor geplaatst
LstUitvoer1.Clear
LstUitvoer2.Clear
LstUitvoer3.Clear
LstUitvoer4.Clear
' Dan word de invoer leeggemaakt
CmbSelecteer2.Text = ""
'De cursor word terug geplaatst in de combobox van de derde workshop
CmbSelecteer2.SetFocus
Else:
LstUitvoer2.AddItem ("(11.05 / 13.00)" + CmbSelecteer2)

If CmbSelecteer3 = "" Then
' Als men bij de derde workshop niets heeft ingevuld krijgt men een foutmelding
Msg = "U heeft niets ingevuld bij de Derde Workshop"
MsgBox Msg, vbCritical, "Onvoldoende gegevens!"
'Alle listboxen worden gewist
' Dan word de invoer leeggemaakt en de cursor geplaatst
LstUitvoer1.Clear
LstUitvoer2.Clear
LstUitvoer3.Clear
LstUitvoer4.Clear
' Dan word de invoer leeggemaakt
CmbSelecteer3.Text = ""
'De cursor word terug geplaatst in de combobox van de derde workshop
CmbSelecteer3.SetFocus
Else:
LstUitvoer3.AddItem ("(14.05 / 16.00)" + CmbSelecteer3)

If CmbSelecteer4 = "" Then
' Als men bij de Vierde workshop niets heeft ingevuld krijgt men een foutmelding
Msg = "U heeft niets ingevuld bij de Vierde Workshop"
MsgBox Msg, vbCritical, "Onvoldoende gegevens!"
'Alle listboxen worden gewist
' Dan word de invoer leeggemaakt en de cursor geplaatst
LstUitvoer1.Clear
LstUitvoer2.Clear
LstUitvoer3.Clear
LstUitvoer4.Clear
' Dan word de invoer leeggemaakt
CmbSelecteer4.Text = ""
'De cursor word terug geplaatst in de combobox van de derde workshop
CmbSelecteer4.SetFocus
Else:
LstUitvoer4.AddItem ("(16.35 / 18.30)" + CmbSelecteer4)

End If
End If
End If
End If
End If
End Sub

Private Sub CmdInfo_Click()
' Je gaat naar het tweede gedeelte van het programma
Form2.Show
End Sub

Private Sub CmdWisKnop_Click()
'Er wordt een melding gegeven

Dim Msg As String, Knop As Integer
Msg = "Weet u zeker dat u alles wilt wissen?"
Knop = MsgBox(Msg, vbYesNo + vbExclamation, "Let op!")
If Knop = vbYes Then
' Alle listboxen en comboboxen worden gewist
LstUitvoer1.Clear
LstUitvoer2.Clear
LstUitvoer3.Clear
LstUitvoer4.Clear
CmbSelecteer1 = ""
CmbSelecteer2 = ""
CmbSelecteer3 = ""
CmbSelecteer4 = ""
'De cursor word geplaatst
CmbSelecteer1.SetFocus
Else
Exit Sub
End If
End Sub